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MODULE ACCESS (LANGUAGE 0415838) ’ 
we = ‘v04-000' 


BEGIN 


APES ESLSLIT ITI TTT PETIT Te Trier Piri ttre t titi i tt i titi iti iititittTy 


‘fe 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 
ONLY AC 


E USED 
CORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
R 
® 
a 
ie 
ae 
® 
® 
ft 
® 
ie TRANSFERRED. > 
a 
® 
® 
® 
® 
* 
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® 
® 
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AND COPIED 
THE 


od 
z 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. ePORAT iin NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
SORA REAR EAERARAAAAAA RARE AEE AA EAA A EATER AAAARAAAERERAREREREREREEEE 


i ABSTRACT: 
, This module performs the access function for mtaacp. 


i ENVIRONMENT: 


' 

: Starlet operating system, including privileged system services 
and internal exec routines. 
i 


‘ 
i AUTHOR: D. H. Gillespie, CREATION DATE: 13-MAY-77 16:20 
' 


MODIFIED BY: 
vO3-002 MMD0275 Neg Dumont, 3-Mar-1984 9:49 
change order of calling the routines CHECK_ACCESS and 
CHECK_FILE_ACC 


v03-001 MMD0001 Meg Dumont, 5-Nov-1982 15:53 
Added support for setting user handling of EOT on a file access 


| 
| 
:++ 
FACILITY: MTAACP 
v02-005 DMw00050 David Michael Walp 10-Nov-1981 
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$ep-1984 AX-11 Oi iss: 32 V4.0-74 
iSoseort9gs 92:06:38 yAtet1 Ot in4-52, ye. 05749 
Return ‘'NO SUCH FILE’ error for when a ‘''NO MORE FILES" error 

is returned and no files have been found. 


V02-004 REFORMAT Maria del C. Nasr 30-Jun-1980 


V02-003 SPR27361 Maria del C. Nasr 10-Jun-1980 
af x design problem in wh Bs the IO_PACKET os "bein returned 
before 10 was really completed. Now,a file will not be accessed 
until the tape mark is a pages bee ty | skipped. Also, the user 
labels code was eliminated, since it was never used. 


A0002 MCNO0001 aria del C 11-Se a 17:02 
Added argument to o CHECK FILE Re call to fix bug in 
“create if'’ function. 


ef 
LIBRARY ‘SYSS$LIBRARY:LIB8.L32'; 
REQUIRE ‘SRCS$:MTADEF .B32'; 
FORWARD ROUTINE 
MTA_ACCESS : NOPRES NOVALUE, ! main control for access function 


CHECK FIND : COMMON_CALL, ! conditional directory search 
ANDLER; ! conditional handler to catch error exit 
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GLOBAL ROUTINE MTA_ACCESS : NOPRES NOVALUE = 


'e¢ 


FUNCTIONAL DESCRIPTION: 
This is the main processing routine for mtaacp access function 


CALLING SEQUENCE: 
MTA_ACCESS() 


INPUT PARAMETERS: 
None 


IMPLICIT INPUTS: 
—QURRENT 


UCB = address of current ucb 

CURRENT _WCB = address of current web 

CURRENT _VCB = address of current vcb 

IO_PACKET = address of current io request packet 
OUTPUT PARAMETERS: 

None 
IMPLICIT OUTPUTS: 

None 
ROUTINE VALUE: 

None 


SIDE EFFECTS: 
Access request processed 

USER ERRORS 
SS$_FILALRACC - file already accessed 
SS$_BADPARAM - bad input parameters 


BEGIN 

EXTERNAL REGISTER 
COMMON : 

LOCAL 
FUNCTION : BLOCK (1), ! function and qualifiers 
PACKET : REF BBLOCK, ! address of io packet 


: address of buffer descriptors 
ABD : REF BBLOCK VECTOR C. ABDSC_LENGTH] 


FIB : REF BBLOC ' address of file information block 
EXTERNAL 
CURRENT_UCB : REF BBLOCK, ! address of current ucb 
CURRENT WCB : REF BBLOCK, ! address of window control block 
PACKET : REF BBLOCK, ' address of io request packet 
USER_STATUS : VECTOR; ! status to return to user 


EXTERNAL ROUTINE 


ee 


-1984 02:06: AX-i1 Bliss-32 V4.0-742 P 4 
71984 95:08:89 MTAACP. SRC ACCESS. B32: 1 a (2) 
Make data base changes nec for access 


ACCESS_FILE : COMMON_CALL, 
ACLESS_NEW_FILE : COMMON_CALL, ' access newly created file 


Check volume protection on each file access 


CHECK_ACCESS —: COMMON_CALL, 
CHECK“FILE_ACC : COMMON™CALL 
CLOSE-FILE : LSCLOSE_FILE, 
GET_FIB : COMMON_CALL, 

MIA CREAT 

R 


check access to the file 
close out file 

et file information block 

ain control for create function 
position to file by fid 

read file attributes 

call to set user eot handling 
space tape mark 

start up virtual io 


- 

OSTTION_BY FID : COMMON_CALL, 
EAD_ATTRIBOTE : COMMON-CALL, 
SET_OSER_EOT : COMMON_CALL, 
SPATE_ : COMMON_CALL NOVALUE, 
START_VIO : COMMON_CALL; 

Setup pointers 

PACKET = .JO_PACKET; 

Address of buffer descriptors 


ABD = .BBLOCKC.PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPTI; 
FIB = GET_FIB(.ABD); get file information block 


Get the function to be performed 
FUNCTION = .PACKETCIRPSW_FUNC); 


! If anyone has a file accessed then another file can not be access nor can 
the tape be searched 


» 


WN" SO ODNAULS UN“ OOONOUS UT 


address of io packet 


IF nee ae NEQ 0 
( FUNCTIONCIO$V_ACCESS) 
gf OCF 1BSu_010_WURJ NEQ 0) 
ERR_EXIT(SSS$_FILALRACC); 
IF .FIBCFIBSV_TRUNCJ 
i yg’ UNCTIONELOSV_DELETE) 
ERR_EXIT(SS$_BADPARA‘A) ; 
is possible that 3 create was issued without an access in which case 


ei. 
! there is a perstes. file on this tape. if the access is to a different 
file then close out the partial file before preceding 


| 
NN eee eee 
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CURRENT _VCBCVCB$V PARTF ILE) ! if there is a partial file 
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THEN 


RS A ee ee Se ee 


p=1984 3:46:81 — ERVAACPLSRCSACCESS. 632; 


: 199 Ht BEGIN 

; 9 368 Is this a find or a request for a different file 

: o8 285 

: 304 386 IF .FIBCFIBSW_DID_NUM] NEQ 0 

; oe 38s yg’ Of BOCE 188u_F103)<0, 32> NEQU .CURRENT_VCBCVCBSL_CUR_FIDJ 
: 208 590 CLOSE_FILE() ! close partial file before preceding 
; 209 0591 LS 

: 210 0236 4 BEGIN 

5 11 595 4 

: \¢ B23e 4 ! if any attributes requested, 

3 1 595 4 : 

; 14 bee 4 

; 1? 444 ? IF .PACKETCIRP$W_BCNT] GTR ABDSC_ATTRIB 

: 17 $399 4 READ_ATTRIBUTE(.ABD); !' then read them 

: 18 0600 4 

$ 19 0601 4 IF .FUNCTIONCIO$V_ACCESS) 

; 220 0602 4 THEN 

3s del 0603 5 BEGIN 

3 $6 0604 5 

; 2 0605 5 IF NOT .FIBCFIBSV_WRITE) 

: $¢ 0606 5 THEN 

3 $2 a4 2 ERR_EXIT(SS$_BADPARAM) ; ! must write new file 
5 2e7 0609 5 ACCESS_NEW_FILE(.FIB, .PACKET, .ABD); |! access partial file 
; 28 0610 4 END; 

; $3 0611 4 

3 pele 4 RETURN; 

; 231 0613 4 

3 $ 0614 ; END; 

; 0615 

3 pole § END; 

: 235 061 , 
3 36 3018 ! If file is accessed, the only function that can be performed is read 
: 7 pe) ' attributes 

g 0 ! 

3 39 0621 

: 40 be ¢ If .CURRENT_WCB NEQ 0 

: $e i BEGIN 

; rk 88 5 

3 ve be $ IF .PACKETCIRP$W_BCNT] GTR ABDSC_ATTRIB 

; 4 0628 READ_ATTRIBUTE(.ABD); 

: 2468 0 RETURN; 

; 2469 1 

3 29 § END; 

: 26 ; : If directory id given, find file by file name string 

: 254 6 $ : 

: 255 IF .FIBCFIB$W_DID_NUM) NEQ 0 


-TITLE ACCESS 
-IDENT \V04-000\ 
TRN 
T 


I 

D 

x CURRENT UCB, CURRENT wcB 
XTRN 10 PACKET, USE 

XTRN ACCESS FILE ACCESS _NEW_FILE 
XTRN CHECK_ACCESS K-FILE _ACC 
XTRN CLOSE-FILE, bef 

XTRN MTA_CREATE, Posty TLON BY_FID 
XTRN READ_ATTRIBUTE, SET_OSER_EOT 


:0 AX-11 Bliss-32 V4.0-74 Page 6. 
ats vi 95: 08: 3 MTAACP_SRC} Ctess B32; 9 02) 
; 3 THEN 
; 8 0 IF NOT CHECK_FIND() | 
; 41 THE 
; 69 Ag BEGIN | 
i 68 4 IF NOT .FUNCTIONCIOSV, CREATE] | 
; 264 § ERR_EXIT(SS$_NOSUCHF ILE); 
: 265 64 
: 66 a USER_STATUSCO] = SS$_CREATED; 
: 24 4 RETURN MTA_CREATE();~ ' execute create function 
: 269 51 END; 
: 270 0659 
3 z} 8e27 position volume set by fid 
: 78 0655 POSITION_BY_FID(.(FIBCFIB$W_FID])<O, 32>, .FIBCFIBSW_FID_RVN]); 
; a 0657 IF .PACKETCIRPSW_BCNT] GTR ABDSC_ATTRIB 
: 27 0659 READ_ATTRIBUTE(.ABD); 
; o78 0660 
: 79 0661 ! if access requested 
3 380 066¢ i 
3 81 066 
; 38¢ 0664 IF_.FUNCTIONCIOSV_ACCESS] 
3 se 0665 THEN 
; 286 0666 BEGIN 
; 85 0667 CHECK_FILE_A ' check access to file, (1)=mta_access 
3 MY peek CHECK “ACCESS ( crate resy WRITE); ' check volume access 
; 88 0670 IF .CUKRENT_VCBCVCB$B_TM] EQLU 0 
: 90 067 SPACE_TM(1); ! position to data 
; 332 0674 KERNEL_CALL(SET_USER_EOT, .FIB to set user EOT ageing 
: 29 P 0675 KERNEL TGAELCACCESS FILE, .FIBLF Pr iBSL “acetyS* eACRETE Rear _PIDJ, 
+ 29% 0676 BCFIB$V_WRITE), .ABD); 
: 295 0677 KERNEL “CALL USTART _VIO5; ! start virtual io 
> 296 0678 RETURN: 
: 297 0679 
: 298 0680 END; 
: 99 681 | 
; 500 682 END; | 


3 
ep-1984 02:06: AX-11 Bliss-32 V4.0-74 Pa 7) 
et 95:06:48 ERTAACPSRe ACCESS B3or4 ” (2) 
-EXTRN SPACE_TM, START_VIO 
EXTRN SYSSCAKRNL 


D 
ACCE 16- 
v0o=000 14 


$ 
-$ 


«PSECT S$CODES,NOWRT,2 


0000 0000 ENTRY MTA_ACCESS, Save nothing 3 0467 
53 00006 CF 00 00 MOVL §10_PACKET, PACKET + 0545 
5 2c 83 DO 000 OVL  a42(PACKET), ABD + 0549 
DD 00008 PUSHL ABD : 0550 
00006 cf Q1 FB 9000 CALLS #1, GET_FIB : 
54 20 3 2 0918 MOVZ2WL 32(PACKET), FUNCTION t 0554 
00006 cf D 1 TSTL URRENT_WCB : 0560 
13 0001D BEQL $ : 
05 54 06 £ 0001F BBS #6, FUNCTION, 1$ + 0562 
OA A2 BS 00023 TSTw 10 F IB) + 0564 
4 7 000 6 BEQL ©. 2$ . : 
00AS 8F BF 00028 1$: CHMU = #164 + 0566 
04 17, A2 €8 00 C 28: BLBS  23(FIB), 3$ > 0568 
02 54 08 £1 00030 C Hi FUNCTION, 4$ : 0570 
14 BF 00054 3$: CHMU = s #20 : 0572 
30 0B AB £9 00036 4$: BLBC  11(CURRENT_VCB), 9$ : 0579 
OA A B3 O003A TSTW  10¢FIB) : 0586 
07 12 00030 BNEQ ©-5$ ; 
24 AB 04 Ag D1 0003F CMPL ©: &(F IB), 36(CURRENT_VCB) : 0588 
05 13 00044 BEQL 6$ ; 
00006 30 00046 5$ BSBW CLOSE_FILE + 0590 
1F 11 00049 BRB 9$ ; 
05 32. a3 Bi 00048 6$ CMPW = SO(PACKET), #5 : 0597 
07 18 0004F BLEQU 7$ : 
55 DD 00051 PUSHL ABD : 0599 
00006 CF 01 FB 00053 CALLS #1, READ_ATTRIBUTE : 
SE 54 06 £1 00058 7$ BBC #6. FUNCTION, 14$ > 0601 
02 01 A2 €8 0005¢ BLBS  1(FIB), 8$ : 0605 
14 BF 00060 CHMU =: #20 + 0607 
2C BB 00062 88: PUSHR #*M<R2,R3,R5> : 0609 
00006 CF 03 FB 00064 CALLS #3, ACCESS_NEW_FILE F 
04 00069 RET + 0592 
00006 CF D3 0006A 9S: TSTL § CURRENT_WCB : 0622 
OF 1 O006E BEQL : 
05 32. A’. Bi 0007 CMPW  SO(PACKET), #5 > 0626 
01 1A 90074 BGTRU 10$ ; 
04 0076 RET F 
55 0D 007 10$ PUSHL ABD : 0628 
00006 CF 01 FB 00079 CALLS #1, READ_ATTRIBUTE : 
04 0007E ET > 0624 
OA A2 8 O07 11$ TSTW 19¢F 1B) : 0637 
1D 13 00 82 EQL «=s«138 ; 
0000v CF 0 FB 000 CALLS #0, CHECK_FIND > 0640 
15 0 f 089 BLBS RO, 13$ : 
4 08C¢ TSTB ‘FUNCTION > 0644 
4 19 000 BLSS. ss : 
0910 F gf 00 CHMU so 20 + 0646 
000G CF 619 8F 3¢ 0094 12$ MOVZWL #1561, USER STATUS > 0648 
000G CF 00 Fe 009 CALLS #0, MTA_CREATE : 0649 
7E 08 A2 ge OOA1 13$: MOVZWL 8(FIB), -(SP) > 0655 
| 


: " «tine Size: 283 bytes, Routine Base: S$CODE$ + 0000 


0683 1 


9 
ibese -1984 706: AX-11 Bliss-32 V4.0-74 Page 8. 
12-9 08-198e 95:06:48 ERTAACP SRe ACCESS .B32; . (2) 
04 A2 dD as PUSHL  4(FIB) ; | 
00006 cf 02 FB OOOA CALLS . POSITION gY.FID : | 
5 320A ei AD MPW  SOCPACKET), # ; 0657) 
B 0008 BLEQU 14$ : 
5 DD 0008 PUSHL D + 0659 
00006 ct 1 FB B CALLS #1, READ_ATTRIBUTE : 
5¢ 4 6 £1 QOOBA 14$: BBC #6. FUNCTION, 16$ + 0664 
DD 08 PUSHL #1 + 0667 
00006 CF 1 FB 000C CALLS #1, CHECK FILE_ACC eget 
01 A2 1 0 EF 000C EXTZv. #0. #1, 1TFIB). -(SP) + 0668 
00006 CF 1 £ ¢ CALLS #1. CHECK_ACCESS ; 
2E ag 9 D TSTB 46 (CURRENT _VCB) + 0670 
: 1 D BNEQ 15$ : 
1 DD 000D PUSHL #1 + 0672 
00006 CF o1 FB 9007 CALLS #1, SPACE_TM : 
2 DD 000DC 15$ PUSHL F186 + 0674 
gi DD OOD PUSHL #1 : 
E DD 000E PUSHL SP ; 
00006 CF 9F Q0E? PUSHAB SET_USER_EOT : 
000000006 9F 04 FB OOOE CALLS #4, a#SYSSCMKRNL 3 
55 DD OOOED PUSHL + 0676 
01 A2 01 00 EF OOOEF EXTZV #0, #1, 1(FIB), -(SP) : 
01 DD 000FS PUSHL # : 
0c A3 DD 000F7 PUSHL 12(PACKET) : 
62 DD OOOFA PUSHL  (FIB) F 
05 DD OO0FC PUSHL : 
SE DD OOOFE PUSHL SP : 
00006 CF 9F 90100 PUSHAB ACCESS_FILE : 
000000006 9F 08 FB 00104 CALLS #8, aa#SYS$CMKRNL : 
7E D4 00108 CLRL = = (§P) : 0677 
SE DD 0010D PUSHL SP : 
00006 CF 9F 0010F PUSHAB START_VIO ; 
000000006 9F 03 FB 00113 CALLS #3, a%SYSSCMKRNL ; 

04 OO11A 16$: — RET + 0682 
| 
| 
} 


9 
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5 te ; } ROUTINE CHECK_FIND : COMMON_CALL = : 
; 305 1 {44 : 
3 ) 1} : 
3 4 6 : : FUNCTIONAL DESCRIPTION: : 
; 309 90 1! This routine calls the directory search and intercepts any error : 
; 310 91 #1! exits to handle the create if non-existent function. If the search . 
ae 3) 0692 1! is successful, the routine returns success; if the search fails with ; 
3 \¢ 0695 1! no such file and the create subfunction bit is set, it returns failure; ‘ 
; He R988 } all other errors are resignaled. ‘ 
3 2? Os96 1; ; 
; 1 697 1 ! CALLING SEQUENCE: ; 
; Hh 8098 1! CHECK_FIND () : 
; 318 14 1! : 
; 319 0700 1 ! INPUT PARAMETERS: : 
; 0 0701 1! None : 
3 1 0702 1! ‘ 
3 ¢ 0705 1 ! IMPLICIT INPUTS: : 
; § 0704 1! None : 
; 4 0705 1! : 
; $2 0706 1 ! OUTPUT PARAMETERS: : 
; 6 0707 1! None : 
; 327 0708 1! : 
; 28 0709 1 ! IMPLICIT OUTPUTS: . 
: $3 0710 1! None 4 ‘ 
3 0711 1! ; 
ae +) orig 1 ! ROUTINE VALUE: ; 
; 3 0715 1! 1 if find is successful : 
ee 0714 1! 0 if file is to be created : 
; 334 0715 1! : 
; 35 B78 1 ! SIDE EFFECTS: ‘ 
; Q717 1! None : 
3 0718 1! : 
5 8 0719 1 !-- ‘ 
; 339 0720 1 : 
; 340 0721 BEGIN : 
3 1 07 ¢ : 
3 ¢ 07 EXTERNAL REGISTER : 
: 0724 COMMON_REG; ‘ 
3 4 725 : 
3 5 7 $ BUILTIN : 
i 346 7 FP; : 
Py 4 7 3 ¢ 
: 348 7 EXTERNAL ROUTINE : 
: $3 g : FIND_FILE : COMMON_CALL; ! find file in directory : 
3; 351 7 § ! Establish the condition handler and call FIND. If we hear from it we : 
3 26 g : return true. Any signals cause either unwind or resignal. | : 
: 354 735 .FP = HANDLER; : 
s 395 7 FIND AVEO: 3 
; 2$ 4 i RETURN 1; : 
; 358 739 END; ! end of routine CHECK_FIND : 
| 


; Routine Size: 


16 bytes, 


6D 
00006 gf 
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Routine Base: 
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.EXTRN 
0000 00000 CHECK FIND: 
0000v CF 9€ MOV 
5 fe tne aus 
1 00 0000¢ MOVL 
04 OO00F RET 


SCODES + 0118 
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SRLS 


ROUTINE HANDLER (SIGNAL, MECHANISM) = 
lee 
' 

FUNCTIONAL DESCRIPTION: 


all. 


This routine is the condition handler for the conditional bs l 
"s 


It intercepts the error exit from FIND and unwinds to CHECK_ 
caller when appropriate. 


CALLING SEQUENCE: 
HANDLER (ARG1, ARG2) 

INPUT PARAMETERS: 
ARG1: address of signal array 
ARG2: address of mechanism array 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

! IMPLICIT INPUTS: 
: None 

! OUTPUT PARAMETERS: 
None 

! IMPLICIT OUTPUTS: 
None 
ROUTINE VALUE: 

i 
i 
' 
i 
i 


SS$_RESIGNAL or none if unwind 
SIDE EFFECTS: 
None 


BEGIN 

SIGNAL : REF BBLOCK, ! signal arg array 

MECHANISM : REF BBLOCK; ! mechanism arg array 
EXTERNAL ROUTINE 

SYSSUNWIND : ADDRESSING_MODE (ABSOLUTE); ! system unwind service 
EXTERNAL 

LOCAL_FIB : BBLOCK; ! copy of user's fib 


! If the condition is change mode to user (error exit) and the status is 
' no such file, cause an unwind to return 0 to the access main Line. 
} Otherwise, just resignal the condition. 


IF .SIGNALCCHFSL_SIG_NAME] EQL SS$_CMODUSER 
- SIGNALCCHFS$L_SIG_ARG1] EQL SS$_NOSUCHF ILE 


THEN 
BEGIN 


H 9 
1er$ep-1986 13:46:81 EmtAAceeSRESACCESS-83 


# 
SY 


5 $7 16 44 ; 
; t18 138 

; $20 4 
3 2 1 4 
: 6 § § 

; 626 

3 : 5 5 

; 4 § 89 

; 4 § 39 4 
; 4 10 4 
rit 12 2 
: 238 18 ¢ 
: 4 B14 4 
: 635 oat? 4 
3; 6 81 4 
3s 6 0817 4 
3; 4 818 4 
; 639 81 4 
3; 440 820 

: 661 0821 

3 442 08 

: 443 08 

: 4666 0824 

; 4465 0825 

; 6466 0826 1 


; Routine Size: 73 bytes, 


9 


i LOCAL F BCE IBSV_WILDJ 


BEGIN 
IF .LOCAL_FIBCFIBSL_WCC) NEQ 0 
THEN 
BEGIN 
SIGNALCCHFSL_SIG_ARG1] = SS$_NOMOREFILES; 
clear context if at end of search 
LOCAL_FIBCFIBSL_WCC) = 0; 
END; 
END 
BEGIN 
clear context if at end of search 
LOCAL_FIBCFIBSL_WCC) = 0; 


MECHANISMCCHFSL_MCH_SAVRO) = 0; 
prssuneuine to, 0); 


ELSE 


1E-sep-1964 02:06:38 yaratt oLiee-s2 yé.0.749 


END; 
RETURN SS$_RESIGNAL; ! status is irrelevant if unwinding 
END; ! end of routine HANDLER 
-EXTRN SYSSUNWIND, LOCAL_FIB 
0004 00000 HANDLER:.WORD Save R2 
52 0000G CF 4 00002 MOVAB LOCAL_FIB+16, R2 
50 04 AC D0 00007 MOVL NAL, 
00000424 8F 046 ad Oi O05 CMPL 4(RO), #1060 
2E 12 0001 BNEQ 
00000910 8F 08 AO D1 0001 CMPL (RO), #2320 
24 ig 4 3t4 BNEQ 2s 
OE 05 Ag E9 OOOTF BLBC LOCAL_FIB+21, 1$ 
fe 85 S88sddaut bgeatzrete 
08 a0 0930 8F 3C 88 7 MOVZWL #2352, 8(RO) 
62 04 00020 CLAL LOCAL _F18+16 
1 11 0002F BRB $ 
62 04 1 1$: CLRL LOCAL_F1B+16 
50 68 AC 00 ; MOVL OS ANISA. RO 
Cc )hUCOUA be CLRL 12(R0) 
3 C A CLRQ -(SP) 
00000000G 9F FB 000 CALLS ss @4SYSSUNWIND 
50 0918 8F 3¢ 04 2$: MOVZUL #2528, RO 


Routine Base: S$CODE$ + 0128 


Pete Se Se Se Se Se Se Se Se See Se Se Se Se Se Se Be Be 


oO 
fe] 
= 
oO 


<> 


pa198e 15:46:81 ERTAACECSRE SAC CESS 832; sagh 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 372 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


; woeeee== Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

; _$255$DUA28:(SYSLIBILIB.L32;1 18619 35 0 1000 00:01.9 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:ACCESS/OBJ=OBJ$:ACCESS MSRC$:ACCESS/UPDATE=(ENH$:ACCESS) 
; Size: 372 soda 5 0 data bytes 


; Run Time: 00:43 

; Elapsed Time 63 

3; Lines/CPU Min: 

3 ponense sy Mie: 19709 
3 ponety Used: 142 pages 
; Compilation Complete 


0253 SH-BT13A- SE | | T CORPORATION 
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